home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
cboot.d64
/
draw'chars'big.l
< prev
next >
Wrap
Text File
|
2009-01-23
|
5KB
|
152 lines
9000 PROC DRAWLETTER(C$,L'SIZE) CLOSED
9005 CASE C$ OF
9010 WHEN "A"
9015 DRAWTEXT("F8RF2RF5RF2RF8RRF2RRF3LLF4LLF3RRF2RRUF5RRF2D",L'SIZE)
9020 DRAWTEXT("F4LLF2LF2LF1LF2LF2UF1DX",L'SIZE)
9025 WHEN "B"
9030 DRAWTEXT("F8F2RRF5RF2RF2RF2LLF2RF2RF2RF5UB2RRF1DF3RRF2RF1RF1RF1",L'SIZE)
9035 DRAWTEXT("RF2RRUF4DF3RRF2RF1RF1RF1RF2UF1DX",L'SIZE)
9040 WHEN "C"
9045 DRAWTEXT("UF2DF6RF2RF4RF1RF2RRF2RRF1LLF1LF1LF4LF1LF1LLF1RRF2RRF2R",L'SIZE)
9050 DRAWTEXT("F1RF4RF2RRUF1DX",L'SIZE)
9055 WHEN "D"
9060 DRAWTEXT("F5F5RRF5RF2RF7RF2RF5URRF2RRF2DF2LF1LF5LF1LF2LLF7UF1DX",L'SIZE)
9065 WHEN "E"
9070 DRAWTEXT("F5F5RRF7RRF2RRF4LLF2LLF2RRF2RRF2LLF2LLF4RRF2RRF7URRRF2DX",L'SIZE)
9075 WHEN "F"
9080 DRAWTEXT("F5F5RRF7RRF2RRF5LLF2LLF3RRF2RRF3LLF4RRF2URRRF1DX",L'SIZE)
9085 WHEN "G"
9090 DRAWTEXT("UF2DF6RF2RF6RRF2RRF5LF1LF4LF1LF3LLF2LLF1RRF1RRF3RRF4RF1",L'SIZE)
9095 DRAWTEXT("RF5RF2URRF1DX",L'SIZE)
9100 WHEN "H"
9105 DRAWTEXT("F5F5RRF2RRF4LLF3LLF4RRF2RRF5F5RRF2RRF4LLF3LLF4RRF2URRRF1DX",L'SIZE)
9110 WHEN "I"
9115 DRAWTEXT("F2RRF2LLF6LLF2RRF2RRF6RRF2RRF2LLF6LLF2RRF2RRF6RRRUF1DX",L'SIZE)
9120 WHEN "J"
9125 DRAWTEXT("UF1DF2RRF2RRF1LLF2LLF6LLF3RRF2RRF8RRF2RRF3LLF8RRF5RF1",L'SIZE)
9130 DRAWTEXT("URRF1DX",L'SIZE)
9135 WHEN "K"
9140 DRAWTEXT("F5F5RRF2RRF4LLLF4RF2RRRF5LLF5RRRF2RF4LLLF4RRF2URRRF1DX",L'SIZE)
9145 WHEN "L"
9150 DRAWTEXT("F4F5RRF2RRF7LLF5RRF2RRF7RRRUF1DX",L'SIZE)
9155 WHEN "M"
9160 DRAWTEXT("F4F5RRF2RF2LLF2RF2RRF4F5RRF2RRF7LLLF2RRF2LLLF7RRF2RRRUF1D",L'SIZE)
9165 DRAWTEXT("X",L'SIZE)
9170 WHEN "N"
9175 DRAWTEXT("F5F5RRF2RF4LLLF3RRF2RRF5F5RRF2RRF4LF4LLLF7RRF2RRRUF1DX",L'SIZE)
9180 WHEN "O","0"
9185 DRAWTEXT("UF2DF6RF2RF5RF2RF6RF2RF5RF2RRRUF3DF2LF1LF4LF1LF2LF1LF4LF1",L'SIZE)
9190 DRAWTEXT("UF1DX",L'SIZE)
9195 WHEN "P"
9200 DRAWTEXT("F5F5RRF6RF2RF3RF2RF4LLF4RRF2RRUF5RRF2DF3LF1LF2LF1LF3LLF4",L'SIZE)
9205 DRAWTEXT("RUF1DX",L'SIZE)
9210 WHEN "Q"
9215 DRAWTEXT("UF2DF6RF2RF4RF2RF6LF1RRF1RRF1LLF1RF4RF2RRRUF2DF2LLF1RRF1",L'SIZE)
9220 DRAWTEXT("LLF4LF1LF2LF1LF4LF1UF1DX",L'SIZE)
9225 WHEN "R"
9230 DRAWTEXT("F5F5RRF5RF2RF3RF2LLF5RRRF2RF4LF2LLF3RRF2RRUF5RRF2D",L'SIZE)
9235 DRAWTEXT("F2LF1LF1LF1LF2LLF3UF1DX",L'SIZE)
9240 WHEN "S"
9245 DRAWTEXT("F2RRF4LLF2LLF2RF2RF2RF2RF5RRF2RRF4LLF2LLF2RF2RF2RF2RF5",L'SIZE)
9250 DRAWTEXT("RRRUF1DX",L'SIZE)
9255 WHEN "T"
9260 DRAWTEXT("UF8DF2RRF8RRF2RRF3LLF8RRF2RRF8LLF3URRRF1DX",L'SIZE)
9265 WHEN "U"
9270 DRAWTEXT("UF2DF8RRF2RRF7LF1LF2LF1LF7RRF2RRF8RF2RF4",L'SIZE)
9275 FORWARD L'SIZE DIV 2
9280 DRAWTEXT("RF2RRUF1DX",L'SIZE)
9285 WHEN "V"
9290 DRAWTEXT("UF4DF6RRF2RRF5LF2LLF2LF5RRF2RRF6RF4",L'SIZE)
9295 FORWARD (L'SIZE DIV 2)*2
9300 DRAWTEXT("RRF4",L'SIZE)
9305 FORWARD (L'SIZE DIV 2)*2
9310 DRAWTEXT("RRUF1DX",L'SIZE)
9315 WHEN "W"
9320 DRAWTEXT("UF3DF7RRF2RRF6LF1LLF2RRF2LLF1LF6RRF2RRF7RF4RRF2LLF2RRF4RRR",L'SIZE)
9325 FORWARD L'SIZE DIV 5
9330 DRAWTEXT("UF1DX",L'SIZE)
9335 WHEN "X"
9340 DRAWTEXT("F1RF4LLF4RF1RRF1RF4LLF4RF1RRF1RF4LLF4RF1RRF1RF4LLF4RF1RRR",L'SIZE)
9345 DRAWTEXT("UF1DX",L'SIZE)
9350 WHEN "Y"
9355 DRAWTEXT("UF7DF3RRF2RRF2LF2LLF2LF2RRF2RRF3RF3LF4RRF2RRF4L",L'SIZE)
9360 LEFT L'SIZE DIV 2
9365 FORWARD L'SIZE DIV 2
9370 DRAWTEXT("F3RRUF1DX",L'SIZE)
9375 WHEN "Z"
9380 DRAWTEXT("F2RF6LLLF5RRF2RRF7RRF2RF6LLLF5RRF2RRF7RRRUF1DX",L'SIZE)
9385 WHEN "1"
9390 DRAWTEXT("F2RRF3LLF5LLF3RRRF3RF3RRF7LLF2RRF2RRF7",L'SIZE)
9395 FORWARD L'SIZE DIV 2
9400 DRAWTEXT("RRRUF1DX",L'SIZE)
9405 WHEN "2"
9410 DRAWTEXT("F2RRF3LF4LF1LF1LF4LLF1RRF2RRF1RF2RF5RF2RF2RF4LLLF4RRF2RRF8",L'SIZE)
9415 FORWARD L'SIZE DIV 5
9420 DRAWTEXT("RRF1RRUF1DX",L'SIZE)
9425 WHEN "3"
9430 DRAWTEXT("UF1DF2RRF2RRF1LLF3LF1LLF1LF2RRF2RRF2",L'SIZE)
9435 DRAWTEXT("LF1LLF1LF3LLF1RRF2RRF2RF1RF5RF2RF2RF1",L'SIZE)
9440 DRAWTEXT("LLF1RF2RF2RF5RF1RRUF1DX",L'SIZE)
9445 WHEN "4"
9450 DRAWTEXT("UF3DF7RRF2RRF5LLF4LLF3RRF2RRF8RRF2RRF3LLF6RRRUF1DX",L'SIZE)
9455 WHEN "5"
9460 DRAWTEXT("F2RRF5LLF2LLF5RRF6RRF8RRF2RRF6LLF2",L'SIZE)
9465 DRAWTEXT("LLF4RF2RF3RF2RF6RRRUF1DX",L'SIZE)
9470 WHEN "6"
9475 DRAWTEXT("UF2DF6RF2RF5RRF1RRF4LF1LF2LLF3RF2RF2RF2RF3",L'SIZE)
9480 FORWARD L'SIZE DIV 5
9485 DRAWTEXT("RF2RRRUF2DF2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
9490 WHEN "7"
9495 DRAWTEXT("UF8DF2RRF8RRF5F5RRF2RRF8LLF6RRRUF1DX",L'SIZE)
9500 WHEN "8"
9505 DRAWTEXT("UF2DF1RF2LLF2RF1RF2RF3RF2RF1RF2LLF2RF1RF2R",L'SIZE)
9510 DRAWTEXT("F3RF2RRRUF1DRF1LF2LF1LF1LF1LF2LF1LF1LF1RUB4LLD",L'SIZE)
9515 DRAWTEXT("F2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
9520 WHEN "9"
9525 DRAWTEXT("UF6DF2RF2RF6RRF5F5RRF2RRF5LLF4RF2R",L'SIZE)
9530 FORWARD L'SIZE DIV 5
9535 BACK L'SIZE DIV 5
9540 DRAWTEXT("RRUF3DF2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
9545 OTHERWISE
9550 NULL
9555 ENDCASE
9560 ENDPROC DRAWLETTER
9565 //
9570 PROC DRAWTEXT(CHAR$,C'SIZE) CLOSED
9575 FOR INSTR:=1 TO LEN(CHAR$) DO
9580 CASE CHAR$(INSTR) OF
9585 WHEN "F"
9590 INSTR:+1
9595 FORWARD (ORD(CHAR$(INSTR))-ORD("0"))*C'SIZE
9600 WHEN "R"
9605 RIGHT 45
9610 WHEN "L"
9615 LEFT 45
9620 WHEN "U"
9625 PENUP
9630 WHEN "D"
9635 PENDOWN
9640 WHEN "C"
9645 CLEAR
9650 WHEN "H"
9655 HOME
9660 WHEN "X"
9665 FILL XCOR,YCOR
9670 WHEN "B"
9675 INSTR:+1
9680 BACK (ORD(CHAR$(INSTR))-ORD("0"))*C'SIZE
9685 OTHERWISE
9690 NULL
9695 ENDCASE
9700 ENDFOR INSTR
9705 ENDPROC DRAWTEXT
9710 //
9715 FUNC YCOR CLOSED
9720 RETURN 199-PEEK(27260)
9725 ENDFUNC YCOR
9730 //
9735 FUNC XCOR CLOSED
9740 RETURN PEEK(27255)*256+PEEK(27256)
9745 ENDFUNC XCOR
9750 //